parameters call_prg,line_num,input_var
public help_code,color
if call_prg='HELP'
   return
endif
save screen
clear
do case
   case help_code=1
text


  Comando                    Accion                                Ejemplo
  ------------------------   ---------------------------------     ---------
  [N]um:n                    Posicionarse en el registro n         N:17
  [+], [ ]                   Avanza un registro                    +:
  [-]                        Retrocede un registro                 -:
  [M]odificar                Modificar el registro actual          M:
  [B]orrar                   Borra el registro actual.             B:
  Fil[T]ro:n                 Pone el filtro para el tema n         T:3.15
                             Pone el filtro en la seleccion        T:*
  [S]eleccionar              Selecciona el registro actual         S:
                             Selecciona los registros del tema n   S:n
  [A]nular seleccion         Anula la seleccion actual             A:
                             Anula los registros del tema n        A:n
                             Anula toda la seleccion               A:*
  [E]xamen                   Confeccion un examen                  E:
  [L]istado:n                Listado de la base de preguntas       L:3
                             Por temas, seleccion o registro
  [F]in                      Finalizar                             F:

endtext
   case help_code=2
text


    Comando                    Accion                              Ejemplo
    ------------------------   ---------------------------------   ---------
    [N]um:n                    Posicionarse en el registro n       N:17
    [+]                        Avanza un registro                  +:
    [-]                        Retrocede un registro               -:
    [M]odificar                Modificar el registro actual        M:
    [B]orrar                   Borra el registro actual.           B:
    Fil[T]ro:n                 Pone el filtro para el tema n       T:3.15
    [I]mprime                  Imprime el problema actual          I:
    [L]istar:n                 Lista los problema del tema n       L:2.18
    [F]in                      Finalizar                           F:

endtext

endcase

@ 23,0 clear
wait 'Pulsar una tecla para continuar'
clear
restore screen
